RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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LL 000000 VV 
LL 000000 VV 
LL 00 00 VV 
LL 00 00 VV 
LL 00 00 VV 
LL 00 00 vv 
LL 00 00 VV 
LL 00 00 vv 
LL 00 00 vv 
LL 00 00 VV 
LL 00 4 VV VV 
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LL III] Ss 
LL HII! S 
LL SS 
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LL SS 


AAA tt 
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Line output (vertical motion) 1b-5e Sep-1984 AX-11 Bliss-32 V4.0-74 Page 1 
ety 7 0: 38; % RUNOFF .SRC LOVERT -BLI; 4 “= 


1 ZTITLE ‘Line tbe vers rset fatten” 
¢ MODULE LOVERT ( IDENT = 
4BLISS32C0 ADDRESSING “tamara ay = LONG_RELATIVE 
004 NONEXTERNAL = LONG-RELATIVES J 
005 ) «z= 
O007 1 Seon 
444 1 PITITITILI LILLIE LLL Liii iii iii iii iiiiiiTiiiitii 
'e 
6046 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
Bo ig ! is ALL RIGHTS RESERVED. : 
0014 1 it THIS i arthe ss FURNISHED UNDER A LICENSE AND MAY BE USED AND sor ace * 
0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint ~ -—s THE * 
0016 1 !* INCLUSION OF TH NE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4d 4 : :* TRANSFERRED. * 
if ® 
0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
OoS§ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ih : :? CORPORATION. ® 
. x 
0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
B0s$ : ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. ® 
0028 1 !* * 
it 94 : ‘elena acta einai hain 
0031 1 
ht a. 
0033 1! 
Ooge 1 H ABSTRACT: Translation from intermediate format to final output. 
0036 1! 
0037 1 ! ENVIRONMENT: Transportable 
0038 1! 
0039 ! 


ie¢ 

i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i AUTHOR: K. A. Dawson CREATION DATE: December 1983 
| 
| 
| 
| 
| 
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ut (vertical motion) 1§- 
History 14 


SBTTL ‘Revision History’ 


: MODIFIED BY: 


013 REM00013 Ray Marshall 30-Nov-1983 
Initialize the local BRANCH within routine LOUT to eliminate 
nformational message generated by the compiler. 


012 KFA00012 Ken Alden 05-Oct-1983 
Removed left margin fix from #11 and added checking for 
sca_margin_pad. 


011 KFA00011 Ken Alden 27-Jul-1983 
For DSRPLUS: Added a few comments and included the left margin 
in the a guring of the special cased CREF (only) Line. This 
is found in the first Line of LOUT. 


010 KFA00010 Ken Alden 8-Jul-1983 
Just changed the conditional for dsrplus so the cref stuff 
would not be seen be DSR. 


009 KFAQ0009 Ken Alden 30-Jun-1983 
Logic that was put into this routine in #8 was not totally 
correct so a cref was getting held up for quite some time. 
Output of crefs is handled in this module and LOUT1. Crefs, 
however, will increment the tsf_int_hl and there may not 
be i on the Line. Therefore we test tsf_ext_hl so 


see if there is any text. 
008 KFA00008 Ken Alden 29-Jun-1983 
Lout now checks tsf_cref_data before returning. 
007 KFA00007 Ken Alden 29-Jun-1983 


In the very weird cases where the mra only contains vertical 
rintes sequences and any number of crefs, LOUT! is N 
called to duap the crefs since going over to LOUT1 meant never 
returning without a crif getting output. 


006 KFA00006 Ken Alden 28-Jun-1983 
Calling lout! now if tsf_cref_data GTR 0. 
005 REM00005 Bey Marshall 17-Jun-1983 
Remove call to OUTCREF because it's been moved to LOUT! (in 


module LOHORI) based on a new escape sequence in the MRA. 


004 KAD00004 Keith Dawson 3-Jun-1983 
Call OUTCREF from here (not from LOHORI), in order to 
assure that cref records are written to the .BRN even 
when Quick is set. 


003 KAD00003 Keith Dawson 9-May-1983 
Remove support for .DX, .PX (remove references to ASGXTN). 


002 KFA000021 Ken Alden 29-Apr-1983 
Added code for START_ODD chapters. 
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ep-1984 00:52:24 AX-11 Bliss-32 V4.0-74 
Haat 93:38:89 RUNOFF .SRCJLOVERT.BLI; 
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RUNOFF .SRCJLOVERT.BLI; 
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LOVERT Line output (vertical motion) Ib-5e -1984 00:52:24 AX-11 Bliss-32 V4.0-74 Page 4 
1Oe e800 Module Lovel Declarations 1 ~3007 138% 90:38:89 RUNOFF .SRC coveNt OL itt . (3) 


; 138 5 ] ! 

_s 5 > 1! 

; 160 3 1 ! EXTERNAL REFERENCES: 

; «(161 3 1! 

; 196 0 1 

3; 1 91 1 EXTERNAL 

> 164 3 1 fnct : fnct definition, 

> «165 93 1 gca 2 ace definition, 

: 166 U 0294 1 &1F OSRPLUS ZTHEN 

s vor u 0295 1 sca : sca_definition, 

: 198 38 1 FI 

; 97 61 het : hct_definition, 

: 170 98 1 mra : ref fixed_string, 

i Tee 0299 1 tsf : tsf_definTtion, 

3 76 0300 1 npagen : page_definition, 
we. 0301 1 pagen : page definition, 
: ie Ba08 ' phan : phan_definition; 

: #176 $302 1 EXTERNAL LITERAL ! Error messages 
: 77 0305 1 rnfile; 

: 178 Bane 1 

; 179 0307 1 EXTERNAL ROUTINE 

: 180 0308 1 sextet erms, 

: 181 u 0309 1 XIF DSRPLUS XTHEN 

3 1 u 0310 1 outcref, 

; 18 0311 1 

: (184 8318 1 lout1, newpag, . 
s 1865 0313 1 putxtn, tpr, uskipl; 


LOVERT 


v04-000 
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put (vertical motion) 
generate output Line 


ZSBTTL ‘LOUT == generate output Line’ 
GLOBAL ROUTINE lout : NOVALUE = 


ve 
coe 
al 


F 6 
1e-Sep-1986 13:06:89 ERUNOFF “SRE SLOVERT-BL{; 


le4 
FUNCTIONAL DESCRIPTION: 


LOUT accepts as input a Line of text as encoded by SCANT and described 
by the TSF data structure. If GCA_SKIP_OUT is true, the Line is 
ignored; otherwise LOUT generates the necessary device control 
sequences that cause the Line to be printes correctly and leaves its 
output in the FRA to be output by OUTLIN. 


i FORMAL PARAMETERS: None 
i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: 


PHAN_F IGURE - 
PHAN-TOP_PAGE = 
PHAN_FORM_PEND = trols whether a formfeed is written to output 


Con 
(if nonzero). 


i ROUTINE VALUE: 
COMPLETION CODES: None 


i SIDE EFFECTS: None 


BEGIN 


LOCA 


' 
. 
1 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 
‘ 
. 
J 
. 


L 

branch : INITIAL (false), 

ptr_copy. 

tsf_phregs : REF VECTOR Ctsf_nregs); 


Nothing to output?? 
TSF_INT_?L NEQ 0 means either paper control codes and/or some text to 


be output. 

TSF_FIRST_XTN NEQ 0 means that there is an index entry referring to 
something on the current page; it is possible for just 
this item to be set. That can happen if, for example, 
the very first command in the file is a . INDEX command, 
and a .SKIP command follows that. 


SRPLUS ZTHEN 


Text to do (processing needed in LOUT1)? 

If the following branch is taken, then the only ‘text’ in the MRA is 
cref information. In some instances, there also ney be a few spaces 
at the beginning of the Line. This is from the lef margin padding in 
FCIMRA. If this is the case, then we just ignore the Line since lout 
would normally exit at this point since FCIMRA never would have 

been called from CREF and the padding never would have occured. 


F .tsf_int_hl - (3 * .tsf_cref_count) EQL 0 


! The character after RINTES indicates what type of vertical motion 
! is to be done, and gets saved as OP_CODE. e character after 
: that is either a dummy or is a parameter; it gets saved as 


! OPE ° 

op_code = CHSRCHAR_A (ptr_copy); 

poarene 5 a (ptr_copy); 
=. 3 


~<o 


o 
Wwn— 


' Process the particular type of vertical motion 
sees ie -op_code OF 


NOUE WN OOO NOUES WN Oo 


SSeLERE 


| 
LOVERT Line output (vertical motion) 18-se 1984 00:52:24 AX-11 Bliss-32 V4.0-74 Page 6 
v04-000 LOUT == Generate output Line 1 ~3007 138% 90:38:85 RUNOFF .SRC COVERT BL taf . (4) | 
> 244 U 0371 gr 
; ry ¥ ie (.tsflint_hl = (3 * .tsf_cref_count) EQL .sca_margin_pad 
3 <3 U 0374 -tsflext_hl EQL .sca_margin_pad) | 
; re ¥ 75 THEN ‘ | 
: 250 U rs WHILE stefcref gate NEQ 0 DO outcref (); !Dump all pending crefs. 
3 gol U 8 78 tsf_int_hl"= .tSf_int_hl = (3 * .tsf_cret_count); 
H 26 U 0379 tsf-cref_count = 0; ' Cléar this flag since all crefs are done 
: = U 0380 IF T.tsf-int_vl EQL 0) ! Vertical positioning? 
> 254 U 1 AND T.tsf_first_xtn FOL 0) ! Indexing to do? 
; 2? ¢ we (.tsf_footw EQL 0) ! Footnotes attached to this Line? 
3 28 U 8 4 RETURN; ! THEN do absolutely nothing. 
; 258 U 5 ND; 
: 259 0 He] ZELSE 
; 260 038 
: 261 0388 IF .tsflint hl EQL 0 ! Text to do (processing needed in LOUT1)? 
; oe 0389 AND T.tsf_int_vl EQL 0) ' Vertical positioning? 
; 26 0390 AND (.tsf_firsSt_xtn tw 0) ! Indexing to do? 
: see . 4! a (.tsf_footw EQL 0) ! Footnotes attached to this Line? 
3 $o8 $398 RETURN; ! THEN do absolutely nothing. 
; gor 0394 2FI 
PBB ee BF sat pees woot 
; sf_phregs = tsf__phregs; 
; 270 tha ptr-copy = ts start tarads 
; 32 0399 INCR k FROM 1 TO .tsf_int_vl DO ! Process vertical movement 
;: 27 0400 BEGIN 
; 274 0401 
: st? 040 LOCAL 
3; 276 040 hold_khar; 
3 soe 0404 
3 8 ot 84 hold_khar = CHSRCHAR_A (ptr_copy); 
; $80 0407 ! ALL vertical motion code starts with RINTES. Otherwise it shouldn't 
: 281 0408 ! be there and is an error (see the ELSE branch, below). 
3 Hi 0409 IF .hold_khar EQL RINTES 
; 28 1 THEN 
; 284 11 4 BEGIN 
: 285 12 4 
3 Hy] 13 4 LOCAL 
3 44 14 4 op_code, 
3 15 4 operand; 
3; 289 16 4 
: 290 17 4 
; 18 4 
$ 19 4 
; 4 
3 4 
s & 
3 6 
; 4 
3 4 
A 4 
3 
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output (vertical motion) 16-Sep-1984 00:52:24 AX-11 Bliss-32 v4.0-74 
-- Cenerete output Line 12-88-1382 99:38:85 RUNOFF .SRCJLOVERT.BLI; 


4 
C2C'p') : 
phan_top_page = true; ! Start a new page 
CxC's') : 
cskipl (.tsf_phregs C.operand]); ! skip Lines if not top 
! of page 


CzC'u') : 
BEGIN ! skip Lines regardless of page position 
IF (.phan_top_page 
iio NOT Pract expanding) 
newpag (); 


uskipl (.tsf_phregs C.operand]); 
END; ene: : 


C2C'd") : 
! Defer blank Lines until top of page 
phan_figure = .phan_figure + .tsf_phregs C.operand]; 


C2C'g'] : 
? Go to a specific Line immediately. 
! Start a new page if mepeceery: 
' NOTE: You can a go to a Line within the text area of 
: the page. So a negative Line number is interpreted 
! as that many Lines above the footer area (but not 
! above footnotes). 


x, ! TRUE, if not already past that position. 
y: ! Skip this many Lines to position. 


PAPXPEDQD_EMAA AA BBB BEE PAA MIrrnor 


ao 
QSAF ERIS SOVSAL UN ISSN nev Sow aeRO CO oe 


IF (.tsf_phregs C.operand] LSS 0) 
THEN ' Count from bottom. 
x = tpr pAgS (.tsf_phregs C.operand]) > 


FREERRRRER RRR RR RRR RRR RRR RRR RRR RRR RRR RRR ERE 


ELSE bsolute Line number. 
44 x = (.tsf_phregs C.operand]) GEQ .phan_Lines_tp; 
34 IF NOT .x 
0 THEN 
A! newpag (); ! Already too far. Start a new page. 
it att _phrope C.operand] LSS 0) 
Ne ns y = .phan_llines - .hct_layoutn - .phan_lines_tp + .tsf_phregs C.operand] 


y = .tsf_phregs C.operand] - .phan_lines_tp; 


! If already at that position do nothing. However, if not 
' at that position, get there. Note the following special 
' case: if we're at the top of a page then we have to get 
! past the top of the page for the counting to work 
' correctly. 

F .y NEQ 


ea ea ea eal ea eal eal eal al al eal eal al eal al Sod alah sala al oP oP oP oF oF oP oP oP oF oP oP ol a aaa al eal al al ee et ee et ee ee 
- io 
o m 
ao a 
> = 
. ae 


a~w™~ 
Wwm— NO 
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LOUT == Generate output Line 1 ~300n 138% 90:38:89 RUNOFF .SRCJLOVERT.BLI; - (4) 
485 § THEN 
4 $ BEGIN 
4 uskipl (1); ' Force a blank Ling to get past the 
ri ! top of the page, if that's the case. 
4 ! Now recompute position all over agen. since 
91 8 ' we may have just gotten past the top of a page. 
138 i a as operand) LSS 0) 
$32 ? ELS y = .phan_llines - .phan_lines_tp - .hct_layoutn + .tsf_phregs C.operand] 
24 ° y = .tsf_phregs C.operand) - .phan_lines_tp; 
38 6 ! Now do the remainder of the positioning to the 
99 6 ! proper Spot. 
239 6 uskipl (.y 
501 6 END 
aie - 
504 4 + Pe 
8202 BEGIN 
0809 IF .branch 
0508 THEN 
0509 ! Skip until next '." is found. 
B29 find next_dot (k, ptr_copy, hold_khar); 
b21¢ branch = not .branch 
Saiz 2 ‘ 
0515 4 CZc°e') : 
B218 4 ! Test page 
ge a 
0519 5 IF tpr (.tsf_ph C.operand)) 
0520 5 THEN’ —— anit 
0521 5 ' Take the ‘THEN’ branch 
05 § branch = true 
38 B2 ELSE 
9 524 ! Skip the ‘THEN’ branch. 
98 0525 6 BEGIN 
99 0526 6 find_next_dot (k, ptr_copy, hold_khar); 
400 0527 6 branch = false; 
. 1 03 3 ° END 
See oe on 
405 5 § 4 C2ZC'w') : 
406 5 4 IF (.pagen(Csct_run_page] MOD 2) EQL 0 
108 : 5 4 seer han_t t ‘Simply start a new page 
an_top_page = true 'Sim sta Y) 
499 6 ; ELSE” -tOp_pag ply pag | 
411 5 3 IF .phan_top_first EQL 0 
tig 5 THEN 
41 540 6 BEGIN 
414 541 6 LOCAL 
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Ling output (vertical motion) 15-Sep-1984 90:32:88 AX=-11 Bliss-32 V4.0-74 


== generate output Line 14-Sep-1 RUNOFF .SRCJLOVERT.BLI; 
hold_headers; 
hold headers = .hct_headers; !Save the status of headers 
hct_Readers = false; 
newpag (); ‘Throw a ‘blank’ page 
uskipl (15; i Force a blank Line to get past the 
! top of the page, if that's the case. 

npagen Csct_page] = 1; 'number the next page ‘i’ 
hct_headers = .hold_headers; 
pren.top_page = true; !And start another new page 

enp Pran=top.page = true; ‘And start another new page 


COTHERWISE] : 
! Unrecognized sequence! ! 
! Issue error message and carry on. 


BEGIN 
gras (rnfile, CHSPTR (UPLIT ("Lout')), 4); 
Tes; 


END 
ELSE 
! Not an escape sequence. 
! Issue an error message and ignore the character. 


N 
ae (rnfile, CHSPTR (UPLIT ("Llout')), 4); 


END; 
Paper-motion codes have been taken care of. 


The index entry is associated with the current page number. However, 
what the current page number is depends on whether or not there is some 
text on the page. According to ‘'strict’’ usage of indexing, indexing 
commands shoul go Naned lately after the Line to which they apply. 
However, it can be expected that users will do the natural thing, 

i.e., put the indexing commands before the text to which they apply. 
This leads to the situation where the (other) indexing routines have no 
text with which to associate the index entry; for example, this is 
obviously true at the top of the very first page. or the top of any page 
for that matter. 

-tsf_int_hl NEQ 0 


! There is some text to b? output. 


um THEN 


F (.tsf_int_hl EQL .sca_mirgin_pad 
tet ent EQL .sca_margin_pad) 
RETURN; 


amd 
wT 


. 
a 
. 
. 
. 
. 
. 
o 
. 
2 
. 
- 
. 
. 
. 
. 
. 
. 
. 
* 
. 
a 
~ 
. 
~ 
. 
o 
o 
. 
. 
. 
a 
. 
o 
. 
. 
o 
o 
. 
e 
. 
. 
. 
a 
. 
a 
. 
o 
. 
2 
. 
. 
. 
. 
. 
- 
. 
. 
. 
. 
o 
. 
. 
o 
. 
o 
. 
. 
. 
e 
. 
. 


YR 


Line output (vertical motion) 
LOUT == generate output Line 


tt  -  SQOOOOOOOOOO 
re) 


DONA WN OC OONAOU EW OO OONOU SW 


=PONINPINININPINININININWAH EAS 


6 
ep-1 


lout] (.ptr_copy); ! Output text. 


If .tsf_last_xtn NEQ 0 
THEN 


save_xtn (pagen, .tsf_last_xtn); ' Associate current page number 
ne ! with transaction number. 
' 


i Promote index entries attached to this Line, if any. 
Frags tOtLOSt REA NEQ 


TF (phan. t 
-phan_top_page 
(iio NOT Osher. top_tirst) 


save_xtn (npagen, .tsf_last_xtn) 


save_xtn (pagen, .tsf_last_xtn); 
END; 


! Clear transaction numbers in the TSF. This is done so that for things 
! such as titles, that reoccur, no attempt is made to ‘'redefine’’ the page 
! number associated with the transaction number. 

tsf_first_xtn = 0; 

tsf_last_xtn = 0; 


! If there were any footnotes associated with this line, associate them 
! with this page. 

ascftn (); 

END; ! End of LOUT 


K 
1eSep-198¢ 19:06:89 — ERUNOFFeSRESLOVERT OL 
! 


rae Page 


-TITLE LOVERT Line output (vertical motion) 


IDENT \V04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE,2 


C Q0000 P.AAA: .ASCII \lout\ 
C 00004 P.AAB: .ASCII \lout\ 


SEXTRN CSKIPL, ERMS, LOUTI 
“EXTRN NEWPAG, PUTXIN, TPR 
EXTRN USKIPL 


-PSECT SCODES,NOWRT,2 


OFFC 00000 
58 09 G EF 9E 0000 MOVAB NEWPAG, R11 
A G EF 4: MOVAB TSF, R10 
9 000000006 EF 9E 19 MOVAB HCT+8, RO 
8 000000006 EF 9 1 MOV PHAN+{2, RB 
E ¢ C 1 SUBL2 #12, SP 

D 3 CLRL BRANCH 

50 6A DO MOVL TSF, RO 


-ENTRY LOUT, Save R2,R3,R4,R5,R6,R7,R8,RI,RIO,RII  ; 


0315 


: 0888 


—— 


6 
LOVERT Line output (vertical motion) 15- -1984 252:24 AX-11 iss- 4.0-74 
yOu-000 LOUT == Benerate output Line 1 39071382 99:38:85 RUNOFFCSRESLOVERT BL fs — (hy 
‘ p 6 TSTL (ROD : : 
BNEQ ~=s«1$ : ; 
18 «OA 2 A TSTL #4 (RO) + 0389 ; 
0 D BNEQ é : : 
38 OA p F TSTL  56(RO) + 0390 ; 
0 ¢ BNEQ 1 3 : 
0c AO D TSTL  12¢RO) + 0391 : 
01 a i BNEG 1 : 3 
52 co A 1$ MOVAB 140(RO), TSF_PHREGS : 039 : 
04 AE 0000008 G FF 05 F MOVL @MRA, PTR_COPY : 9398 ; 
5 18 AO D 47 MOVL  24(R6), R? : 0399 ; 
0 AF D4 00048 CLRL id : ; 
70 11 4F BRB RE : : 
6E 4 BE 9A 00050 28: MOVZBL @PTR_COPY, HOLD_KHAR + 0405 ; 
4 AE 06 00054 INCL PTR : : 
000000006  &F 3 ot S037 CAP. HOLD _KHAR, #WRINTES 3 0409 : 
0170 31 0066 BRW $ : F 
54 04 BE 9A 00063 3S: MOVZBL @PTR_COPY, OP_CODE > 0421 ; 
4 AE 06 00067 INCL PTR : ; 
53 4 BE 9A 0006A MOVZBL a@PTR COPY, OPERAND + 0422 F 
04 AE 06 O06 INCL. PTR_COPY : : 
08 AE 02 CO 00071 ADDL2 #2, "K > 0423 ; 
00000070 =«&F 34 b 0079 CMPL OB CODE. #112 + 0429 : 
ores 31 0007E BRW 26$ : : 
00000073 =F 34 Dt 9081 4$: CPL OP_CODE, #115 + 0432 : 
6248 DD OO08A PUSHL  (TSF_PHREGS) COPERAND) + 0433 : 
000000006 EF Qi FB 20038 CALLS wi, CSKIPL ; ; 
00000075 = BF se D| 0096 5$: CMPL OP CODE. #117 + 0435 2 
F I § 009F BLBC PHAN, 6$ + 0438 : 
03 000000006 EF E8 OO0A3 BLBS FNCT+24, 6$ > 0439 ; 
9 FB QOOAA CALLS #0, NEWPAG 3 0441 3 
6243 bb OAD 6$: BUSHL (TSF_PHREGS) COPERAND] ; 0443 ; 
00000064 8F 34 D4 0082 7$: cHPL P_CODE, #100 0446 ; 
04 a8 6243 tb Q08B ADDL2 (TSF _PHREGS) LOPERANDJ, PHAN*16 ; 0448 : 
00000067 &F 34 a9¢ $: CMPL QP CODE, #103 ; 0450 : 
54 62k} 8 CB MOVL § (TSF_PHREGS)COPERAND], R4 > 0463 ; 
3 D4 OOOCF CLRL = RS : ; 
4 D8 D1 TSTL RS : F 
iF D BGEG ~=s«d1i1$ ; : 
D6 000D INCL 5 ; ; 
4 pp D PUSHL 4 > 0465 : 
os D9 BGEQ 108 : : 
6E f CE 000DB MNEGL (SP), (SP) : : 
000000006 EF re rs Nos: CALLS. TPR : ; 
3 D4 OOOE7 11%:  CLRL is > 0467 : 
68 4 D1 0009 CMPL  R4, PHAN+12 : ; 


Line output (vertical motion) 
LOUT == generate output Line 


50 F8 
53 
53 

000000006 
50 F8 
53 


53 
000000006 


00000000Vv 


00000074 


000000006 


00000000Vv 


00000077 


oo 


=" 
fe) 


3 3 2OOOOCO NN HT KIM 


= 
co 


—-o 
oo 


oa 
™~m 


SOD —$ PMMNOOMNAMNAS N10 PB FWA LVYVINVMO PB PUN I§ NEOUS OIE Si oo NCO Pov 


DOOOOCOOOCSOOOSOOOOOOOOOOOOOOOOOOOOOOOOO 
fae ae we ae we ae we we we we ww we ww www lala lala elo olololololeolololelololololelolelolelololololololololelololelololo) 


2S 
oo 


rr 


ws 


=—OOOM WWM = FM LOOWMMM OO WU EF NOW MM O J CO WOO & & OCU POF SF WOWOWOoor) 
PAM 


a a ee ee ee ee a dd ad dd od dd dd dd I I OHOOOOOO 


OD LOMUNIWG FON HS FD BMS OOD ON 1009 10 ON DW OW SUT OW UW OTD OWO—O 
PP \ YP PH PK OOOO IIOP DPA AD MMIII 


ono 9 9 NIN" 9 9 MOOS OM TDS 9 9 NOON 39 VS BON BQOOOM NYS HOS OOOMANMo— 


MFMOOMNWOM O SUD OMOM NLS 19 FS NOCD SM"BOvMv0clw 


32: 6 AX=11 tt -32 V4.0-74 


9 RUNOFF SRC} LOVERT.BLI; 
12$ 
6 
X, 13$ 
#6, NEWPAG 
R 3 
HCf+32, @PHAN+4, RO 
PHAN® 12, RO 


PHAN+12, R4, Y 
24$ 


#1 

a. USKIPL 
PHAN+12, @PHAN+4, RO 
HCT+#32, RO 

1) 

PHAN 12, R4, Y 
#1, USKIPL 
OP_CODE, #46 
228 

BRANCH, 21$ 
PTR _COPY 


a3, FIND_NEXT_DOT 
BRANCH, GBRANCA 


OP CODE, #116 
(TSF PHREGS) COPERAND) 
#1, TPR 


RO, 23$ 
#1, BRANCH 
31§ 

SP 

PTR. COPY 


as. Be -NEXT_DOT 


ae 
OP_CODE, #119 
PAGEN*14 RO 

, RO, #0, -(SP) 
a3. (SP)+, RO, RO 
26$ 
PHAN+24 
aHCT#B, HOLD_HEADERS 

HCT+ 

#0, NEWPAG 
# 


N 6 
LOVERT Line output (vertical motion) 16-Sep-1984 2:52:24 AX-11 Bliss-32 V4.0-74 
v04-000 LOUT == Senerate output Line 12280 8= 1382 99:38:85 RUNOFF, RESLOVERT BL 124 
900000 G EF SS, 181 CALLS #1, USKIPL 
000006 EF 1 DO 00188 MOVL #1, NPAGEN+8 
B9 3 pO 0018 MOVL §§ HOLD_HEADERS, @HCT+8 
Fo AB 1 dO 001¢ $$: MOVL #1, PHAN 
F 11 QO1C7 27$: BRB 31§ 
04 pp 109 28$: PUSHL #4 
00000000" EF 9F C8 PUSHAB P.AAA 
8 11 0010 BRB 30$ 
4 pp 103 298 PUSHL #4 
00000000' EF 9F 0010 PUSHAB P.AAB 
000000006 8F DD 108 30$ PUSHL M#RNFILE 
000000006 FF 3 FB 1E CALLS 3, ERM 
FE6I 08 AE 1 F 168 31$ ACBL = iR?, #1, K, 2$ 
50 6A DO OO1EF MOVL ~=rTSF, RO 
60 D3 O1F2 TSTL (ROS 
1F 13 00184 EQL 32$ 
04 AE DD 001F6 PUSHL PTR_COPY 
000000006 EF 01 FB 001F9 CALLS #1, ~LOUT1 
0 6A 00 00 00 MOVL TSF, RO 
3c }=6 Asi. «0020 TSTL 60(RO) 
44 13 99 06 BEQL 368 
3C 000000006 EF 02 £1 0020 BBC #2, GCA+124, 36$ 
3¢ 6 AOs«OD «0021 PUSHL 60 (RO) 
2A 11 0021 BRB 4$ 
50 3c) AO og 00215 32s: MOVL 0(RO), RO 
31 13 00219 BEQL 6$ 
16 F4 AB €E9 0021B BLBC AN, 33$ 
12 OC AB EB O021F BLBS §§ PHAN+24, 33$ 
21 000000006 EF 02 E1 00223 BBC #2, GCA+124, 36$ 
50 DD 00228 PUSHL R 
000000006 EF 9F 00 p PUSHAB NPAGEN 
10 11 00 BRB 
OF 000000006 EF 08 E1 00235 33$: BBC #2, GCA+124, 36$ 
DD 00230 PUSHL 
000000006 ai OF 99 F 34$: PUSHAB PAGEN 
000000006 EF 2 FB 00245 358: CALLS #2, PUTXTN 
50 6A DO 0024C 36$:  MOVL TSF, RO 
38 «=6AO 7C O024F CLRQ 56(RO) 
00000000v_ EF 00 FB 0298 CALLS #0, ASCFIN 
04 00259 RET 


; Routine Size: 602 bytes, Routine Base: S$CODE$ + 0000 


See Se Se Se Se Se Be Be Be Be Be Be Be Oe Be Be Se Be Se Bs Oe Bete Se Fe Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be 


ow 
o- 
o 


WAMAA AWWA PIPPIN NIPINIPUN 3 2 OO OS S COOOCOO 


AWWW Www oP oF ot at ot at et et te eh) he 


ww 


PVP PPV PPV PV PV PVPS DVPVPVPVPT DU PUSVSVSVSVIV SV SVSISVSVSUSUSUSUSUS USSU USS ISIS ISIS ISIS SISOS 
OONOAOVUE WN" OOONOUES WOO 


Be Se Be Oe Be Se Be Be Be Ge Se Se Be Fe Se Be Be Ge Be Be Be He Se Se Se Be Se Oe Se Os Oe Se Ge Oe Oe Ge Oe Oe B86 Os Oe Be Se Oe SESH SHS Se SHS SESH es Se ee 


“ 


Put this many spaces at the right. 
LEFT INSERT. Put this many spaces between words on left. 


C ° There are this many words on the = . 
LEFT_COUNT, t. 


There are this many words on the le 
: Index into padding. 


I 
S 
1 
LINSERT = .SPACES PER_I + (.REMAINING NEQ 0); 


COUNT = .REMAINING; 
COUNT = .INSERT_COUNT - .RIGHT_COUNT; 


ALGORITHM 


IN ! Use alternate space distribution algorithm. 
INSERT, RIGHT_INSERT); 
COUNT, RIGHT_COUNT); 


P 
E 
MAI 
T 
T 


—— —DmwrwuwH 


7 
Line output (vertical motion) 1b-50 =1984 00:52:24 AX-11 Bliss-32 V4.0-74 p 4 
JUSTF == Compute spaces needed for justificatio 12-88-1382 90:38:89 RUNOFF .SRC COVENT OL fei “ts (33 
629 1 XSBTTL ‘JUSTF == Compute spaces nceded for justification’ 
? 9 i GLOBAL ROUTINE JUSTF (PADDING, INSERT_COUNT, SPACE_COUNT, ALGORITHM) : NOVALUE = 
6 § 1 
06 1 
0634 1 
0635 1! 
0636 1! 
0637 1! 
0638 1! 
0639 1! 
0640 1! 
0641 1! 
B9%6 iz 
064 1! 
0644 1! 
0645 1! 
0646 1! 
0647 1! 
0648 1! 
0649 1! 
0650 1! 
0651 1 =! ROUTINE VALUE: 
bees : COMPLETION CODES: None 
0654 1 ! SIDE EFFECTS: None 
0655 1! 
0656 1 !-- 
0657 1 
0658 § BEGIN 
0659 
0660 § P 
ee PADDING : REF VECTOR; 
066 ; LOCAL 
0664 SPACES _PER_I, This many spaces inserted per word. 
0665 : ININ This many ‘‘odd’’ spaces remain. 


LP 
v4 
14 
FUNCTIONAL DESCRIPTION: 
i Computes the number of spaces to be dropped between words 
! and their locations. 
i FORMAL PARAMETERS: 
INSERT_COUNT is _the number of places where spaces can 
; be inserted. SPACE_COUNT is the number of spaces to 
! be distributed. 
: ALGORITHM specifies how spaces are to be distributed. 
The space distribution is returned in PADDING as a set 
of insert counts. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


3; Routine Size: 


output 
F == Compute spaces needed for justificatio 


Mov 
-on 


55 
53 


F5 


F5 


96 bytes, 


(vertical motion) 


PI = 0; 

INCR_I FROM 1 TO .RIGHT_COUNT DO 
PADDING C.PIJ = .RIGHT_INSERT; 
Pl] @ PI @ I; 

INCR I FROM 1 TO .LEFT_COUNT DO 
PADDING C.PI] = .LEFT_INSERT; 
PI] = .PI + 1; 


END; 


003C 0 
oc AC 08 ac C70 
oc AC 01 7A 0 

8E 08 AC 7B 0 

54 52 00 0 

50 04 0 

51 05 0 

02 130 

50 06 0 

50 52 C1 0 

52 51 0 0 

08 AC 52 C3 0 
12 10 AC £90 

50 54 DO 0 

54 55 00 0 

55 50 00 0 

50 53 00 0 

53 52 00 0 

52 50 bo Q 

20 C 0 

07 110 

04 BC40 55 D0 0 
. aE 

3 8 

2 11 0 

04 BC40 4 4 0 
a a:t 

04 0 


Routine Base: SCODE$ + 025A 


Coooo 


FMDWOLMOOE FS VIN MBDOVMVIDOW"MOWDONLSMOwvo 


86 AX=11 Bliss-32 V4.0-74 


RUNOFF ..SRCJLOVERT.BLI; 


! End of JUSTF 


JUSTF, Save R2,R3,R4,R5 
INSERT COUNT, SPACE_COUNT, SPACES_PER_I 
#1, SPACE_COUNT, #0, - 

INSERT_COONT, (SP)+, REMAINING, REMAINING 
SPACES-PER_I. LEFT_INSERT 


R 

REMAINING 

i 

SPACES PER_I, RO, RIGHT_INSERT 


REMAINING, RIGHT COUNT 
RIGHT COUNT, INSERT COUNT, LEFT_COUNT 


oRTT 

T INSERT, H 

T_INSERT, LEFT_INSERT 
GHT_INSERT 


UAT, H 
COUNT, LEFT_COUNT 
GHT_COUNT 


GHT_INSERT, @PADDINGCPI] 
GHT_COUNT, I, 3$ 


FT_INSERT, @PADDINGCPI) 
FT_COUNT, I, 5$ 


Pee Se Se Ge Se Ge Se Ge Se Se Se Se Be Be Se Se Se Se Be Be Se Se Se Be Se Se Se Se Be 


dD 7 
LOVERT Line output (vertical motion) 19~300- 138% 90: 32786 AX-11 Bliss-32 Wy Boaee 
v04-000 FIND_NEXT_DOT == Skip to next ‘'."’ in text. 14-Sep-1984 15:06:59 RUNOFF .SRCJLOVERT .BLI; 
. 701 1 XSBTTL "FIND_NEXT_DOT == Skip to next ''."' in text.’ 
: a4 f : ROUTINE FINDNEXT-DOT (N, PTR, KHAR) : NOVALUE = 
: 579 0704 1 !+¢ 
; 280 of 5 i | FUNCTIONAL DESCRIPTION: 
: Be 18 1! Skip text until a "’."' is seen 
3 38 0708 1! 
3 286 9709 i i FORMAL PARAMETERS: 
: 586 0711 1! N - Address of current offset into the + ls § 
; 587 orig ‘3 PTR - Address of a String descriptor pointing to a text string. 
5 3 tak ! KHAR - Character just beyond the period (returned value). 
: $96 O71 IMPLICIT INPUTS: None 
: 59 0717 1! IMPLICIT OUTPUTS: 
; 59 0718 1! 
: 23e 1644 : N and PTR are advanced to reflect updated position. 
: 596 o73e 1 | ROUTINE VALUE: 
; ad a788 | COMPLETION CODES: None 
: 599 0724 1 | SIDE EFFECTS: None 
; 600 0725 1! 
: 809 Oop dS 
: 608 0738 2 BEGIN 
OE eee tet 
> 607 0732 PTR_COPY = .PTR X, 
: one ore? § HOLB_KHAR = .KHAR 2%; 
: 610 0735 WHILE 1 DO 
; 61¢ $539 HOLD_KHAR = CHSRCHAR_A (PTR_COPY); 
: ei O35 oi andl se 
: 619 9740 IF ;HOLD_KHAR EOL RINTES 
: 619 0748 PA BEGIN 
| en a 
; 620 Ors 4 TEMP = CHSRCHAR_A (PTR_COPY); 
; 632 O74? 4 HOLD. KHAR = CHSRCHAR_A (PTR_COPY); 
: 85a ot weet es 
; 6 5 750 4 IF .TEMP EQL XC." 
: 6 $ re 4 RETURN; 
: 859 re, $ SS oewy SM 
: 630 755 1 END; ! End of find_next_dot 


BtENo 


; Routine Size: 


Line oye 
FIND, 


60 bytes, 


t (vertical motion) 
DOT == Skip to next "."' in text. 


oc 


00000000G 8F 


5 
oc 8B 


Routine Base: 


54 -1 
12-828} 


0004 00000 FIND_NEXT DOT: 
GORD 


WO 

4 AC 00 MOVL 

8 6C po 1$: MOVL 
61 9A A MOVZBL 

08 Be 06 INCL 

60 06 31 INCL 

Oc BC 01 0001 CMPL 

E9 is 0018 BNEQ 

08 Bs DO 00010 MOVL 
62 9A 00021 MOVZBL 

08 Bs D6 00024 INCL 

6 be 0027 INCL 

08 Bs DO 00029 MOVL 
62 9A 0002D MOVZBL 

08 BC 06 00031 INCL 

60 06 00034 INCL 

51 D1 00036 CMPL 

CB 12 00039 BNEQ 

04 00038 RET 


SCODES + O2BA 


9c 19:08:85 — ERUnoreSaeScovent 61171 


Save R2 

N, R 

aPTR, R1 
(R1), @KHAR 
aPTR 

(RO) 

AKHAR, WRINTES 
aPTR, R2 
(Re), TEMP 
(hd) a 
(he) @KHAR 


eR RO) 
TEMP, #46 
1$ 


48 


Be Se ee Be Se Ge Se Ge Ge Fe Ge Fe Se Fe Gs FF oe Se Se Ge Ge FH SE SESS Se Se Se Se Se Se Se Se Se Se Ge Se Ss eee Se Se te Se esas 


LOVERT 
v04-000 


660 


F 7 
Line output (vertical motion) 16-Sep-1984 00:52:24 AX-11 Bliss-32 V4.0-74 Page 18 
ASCFIN m4 Associate this Line's fn's to this pa 122860718 4 99:38:85 RUNOFF .SRCJLOVERT.BLI; ° (7) 
7 $ 1 ZSBTTL "ASCFIN == Associate this Line''s fn''s to this page’ 
4 } GLOBAL ROUTINE ASCFTN : NOVALUE = 
139 ; FUNCTIONAL DESCRIPTION: 
761 1: Associates footnotes associated with the current Line with 
166 . 2 the current page. Such footnotes may be output at any point after 
0765 1! this. 
0764 1! 
0765 1 ! FORMAL PARAMETERS: None 
0766 1! 
1534 ! IMPLICIT INPUTS: None 
0769 1 | IMPLICIT OUTPUTS: None 
0770 1! 
0771 1 =! ROUTINE VALUE: 
pre ! COMPLETION CODES: None 
0774 1 | SIDE EFFECTS: None 
0775 1! 
0776 1 !-- 
0777 1 
ta ; BEGIN 
0780 FNCT_READY = .FNCT_READY + .TSF_FOOTW; ! Number of footnotes that can be output. 
0781 § ! The following code is not really necessary. ALL it does is establish a 
14-14 ! consistancy check to make sure footnotes are being counted correctly. ; 
0785 2 FNCT WAITING = .FNCT_WAITING = .TSF_FOOTW; ! Reduce number of footnotes ‘‘in Limbo.’ 
Boge 2 TSF_FooTw = 0; ! Forget these footnotes now, so they don't get counted twic 
Bree 5 ! Now perform the consistancy check. 
0788 -FNCT_WAITING LSS 0 
0789 HEN 
tas atl wrong. Complain (INTERNAL LOGIC) and try to recover. 
1434 ERMS (RNFILE, CHSPTR (UPLIT ("ASCFIN')), 6); 
079 ! Attempt to reset this consistancy check so this message 
0794 ; ! doesn’t continue to neagen. 
0795 FNCT_WAITING = .FNCT_COUNT = .FNCT_READY 
a3 a. 
0798 ' Clear out the counter, so these footnotes don't get counted twice. 
3443 TSF _FOOTW = 0; 
0801 1 END; ! End of ascftn 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
00 00 4E 54 46 43 53 41 00008 P.AAC: .ASCII \ASCFIN\<0><0> : 


-PSECT SCODES,.NOWRT,2 


YER 


Se Be Ge Se Ge Ge 


; Routine Size: 


Name 
SPLITS 
SCODES 


File 
RST Hi 


Line output (vertical motion 
ASCFIN == Associate this | 


; 


gongooans EF gE 


? e 
g-seoct9ee 90:52:24 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJLOVERT.BLI; 

.ENTRY ASCFIN, Save R2,R3 

MOVAB TSF, R$ 

MOVAB FNCT +16, R2 

MOVL TSF, R 

ADDL 12(R0), FNCT+4 

SUBL2 12(RO), FNCT+16 

CLRL. =: 12 (RO) 

TSTL FNCT#16 

BGEG ~=Ss«é18 

PUSHL #6 

PUSHAB P.AAC 

PUSHL &#RNFILE 

CALLS #3, ERMS 

SUBL3 FNCT+4, FNCT, FNCT+16 

MOVL TSF, RO 

CLRL 12(R0) 

RET 


End of module 


1 
pa 1 
0 888 
le 
FS COA Cc ..a e 18 
6 . wm ¢ 1 
C Ad D 1C 
6 8 1F 
06 0D 
A444 o F oP 
0000000G 8F ODD 88 B 
since * EF 3 Fe 3 1 
2 F Ae F4 Ag C3 00038 
5 635 DO QOO3SE 1$: 
0c AO D4 00041 
04 00044 
69 bytes, Routine Base: S$CODE$S + 02F6 
O308 | 1 END ' 
0804 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
16 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
827 NOVEC,NOWRT, RD, EXE,NOSHR, 
Library Statistics 
wee meee ee Symbo lL s ee eee te 
Total Loaded Percent 
SYSLIBJXPORT.L32;1 370 9 § 
RUNOFF . SRCJDSRLIB.L32;1 124 3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LOVERT/OBJ=OBJ$:LOVERT MSRC$:LOVERT/UPDATE=(ENHS$:LOVERT) 


Pages 
Mapped 


252 
86 


LP’ 
VvO+ 


H 
LOVERT Line output (vertical motion) 1 
1045000 ASCFIN = Associate this Line's fn's to this pa 18: 
; 827 + 16 data byte 
; Run so oR rf. Angee 
; ryepeed Time: 
3; Line Qi : 
3 Lenenes/CPU-Rin; 1558 


se Used: 154 pages 
— ation Complete 


7 
e 
e 


w$2p-1986 18:66:89 


AX-11 BLi 
RUNOFF .SR 


ag 3e v4 
CJLOVERT 


0-74 
-BLI; 


j 


ON 
Y 


L EQUIPMENT CORPORA 
ENTIAL AND PROPRIET 


AH-BT13A-SE 
VAX/VMS_V4.0 


TA 
ID 


DIGI aR 
CONF = 


0343 


